home *** CD-ROM | disk | FTP | other *** search
/ PC Open 107 / PC Open 107 CD 1.bin / CD1 / INTERNET / EMAIL / pop file / setup.exe / $_1_ / XMLRPC / TCP.pm < prev    next >
Encoding:
Perl POD Document  |  2004-06-01  |  1.8 KB  |  64 lines
  1. # ======================================================================
  2. #
  3. # Copyright (C) 2000-2001 Paul Kulchenko (paulclinger@yahoo.com)
  4. # SOAP::Lite is free software; you can redistribute it
  5. # and/or modify it under the same terms as Perl itself.
  6. #
  7. # $Id: TCP.pm,v 1.3 2001/08/11 19:09:58 paulk Exp $
  8. #
  9. # ======================================================================
  10.  
  11. package XMLRPC::Transport::TCP;
  12.  
  13. use strict;
  14. use vars qw($VERSION);
  15. $VERSION = sprintf("%d.%s", map {s/_//g; $_} q$Name: release-0_55-public $ =~ /-(\d+)_([\d_]+)/);
  16.  
  17. use XMLRPC::Lite;
  18. use SOAP::Transport::TCP;
  19.  
  20. # ======================================================================
  21.  
  22. package XMLRPC::Transport::TCP::Server;
  23.  
  24. @XMLRPC::Transport::TCP::Server::ISA = qw(SOAP::Transport::TCP::Server);
  25.  
  26. sub initialize; *initialize = \&XMLRPC::Server::initialize;
  27.  
  28. # ======================================================================
  29.  
  30. 1;
  31.  
  32. __END__
  33.  
  34. =head1 NAME
  35.  
  36. XMLRPC::Transport::TCP - Server/Client side TCP support for XMLRPC::Lite
  37.  
  38. =head1 SYNOPSIS
  39.  
  40.   use XMLRPC::Transport::TCP;
  41.  
  42.   my $daemon = XMLRPC::Transport::TCP::Server
  43.     -> new (LocalAddr => 'localhost', LocalPort => 82, Listen => 5, Reuse => 1)
  44.     -> objects_by_reference(qw(My::PersistentIterator My::SessionIterator My::Chat))
  45.     -> dispatch_to('/Your/Path/To/Deployed/Modules', 'Module::Name', 'Module::method') 
  46.   ;
  47.   print "Contact to XMLRPC server at ", join(':', $daemon->sockhost, $daemon->sockport), "\n";
  48.   $daemon->handle;
  49.  
  50. =head1 DESCRIPTION
  51.  
  52. =head1 COPYRIGHT
  53.  
  54. Copyright (C) 2000-2001 Paul Kulchenko. All rights reserved.
  55.  
  56. This library is free software; you can redistribute it and/or modify
  57. it under the same terms as Perl itself.
  58.  
  59. =head1 AUTHOR
  60.  
  61. Paul Kulchenko (paulclinger@yahoo.com)
  62.  
  63. =cut
  64.